home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / new_file / extras / apple_st / apple.eng < prev    next >
Encoding:
Text File  |  1993-09-24  |  6.7 KB  |  136 lines
  1.  
  2. Apple and Atari must over the serial Opening connected be! 
  3.  
  4. On the Apple must ON Driver-Program started become, that z.B. so 
  5. look could (under APPLESOFT-BASIC): 
  6.  
  7. Number. Zeileninhalt                    Comment                    
  8.  
  9. 10  ONERR GOTO 500                  Error-handling, s.u. 
  10. 20  D$=CHR$(4)                      Control characters for DOS-Operations 
  11. 30  HOME 
  12. 40  Print "Text-Files For Atari 
  13.     Transfer:" 
  14. 50  Print "('C1'=CATALOG,D1 ;       Activate beider Disk-drive, and  
  15.     'C2'=CATALOG,D2)"               Possibility for Change 
  16. 60  Print 
  17. 70  Input "Name = ?";F$             Filenames enter,input (Type "T" !) 
  18. 80  IF LEN(F$) < 1 THEN 490         Abort, when only <CR> pressed 
  19. 90  IF F$ <> "C1" Wochs F$ <> "C2"    none "Catalog", none Empty string, 
  20.     THEN 130                        so Start 
  21. 100 Print D$;"CATALOG" +            Disc-Table of contents show 
  22.     RIGHT$(F$,2)   
  23. 110 Print 
  24. 120 GOTO 40                         New Input-Trial 
  25. 130 Print D$;"APPEND ";F$           Used for Quiz, whether File existing; 
  26. 140 Print D$;"Close ";F$            "open" dignity him otherwise create. 
  27. 150 Print D$;"Open ";F$             If File existing: Start 
  28. 160 Print D$;"Read ";F$ 
  29. 170 E%=1                            Always Variables instead Number ! 
  30. 180 S%=8191                         The Bytes become from HGR1 laydown; 
  31. 190 N%=0                            max. until $9600 (ago DOS),= 31Kbyte 
  32. 200 N%=N%+E%                        Loop with Zaehlererhoehung 
  33. 210 Get B$                          Byte read 
  34. 220 POKE S%+N%, ASC(B$)             zwischenspeichern 
  35. 225 A=FRE(0)                        **** s.u. **** 
  36. 230 GOTO 200                        weiterlesen; Stop over Error-Routine 
  37. 240 Print D$;"Close"                Read ready 
  38. 250 A=Int( N% / 256 )               High-Byte the Byteanzahl (8 Bit!) 
  39. 260 B=N% - 256*A                    Low-Byte 
  40. 270 Print N%;" Bytes Become         Length announce 
  41.     Transfer" 
  42. 280 Print 
  43. 290 Print "Transfer Broken   Text for Control (s. Procedure) 
  44.     (J/N) "                         as soon as s.Line 320-350 
  45. 300 Print D$;"PR#2"                 Slot the serial Opening 
  46. 310 Print CHR$(A), CHR$(B)          Length in the 2-Byte-Calibre transfer 
  47. 320 L=PEEK(-16384)                  Speicherzelle the Tastatureingabe 
  48. 330 IF L>127 THEN 360               Key-pad becomes pressed 
  49. 340 T=PEEK(-16336)                  if not: Akustisches Signal give 
  50. 350 GOTO 320                        and wider on Answer wait 
  51. 360 POKE -16368,0                   Tastatureingabe again release 
  52. 370 IF L=202 THEN 420               "J" becomes gave => Abort 
  53. 380 For I=1 Beware N%                   If not: transfer 
  54. 390 Print CHR$( PEEK( S% + I ));    CHR$() for Byte-weisen transfer 
  55. 400 NEXT I 
  56. 410 Print                           must be; last Sign therefore <CR> 
  57. 420 Print D$;"PR#0"                 backward for Terminal 
  58. 430 Print 
  59. 440 Input "Still ON File            That Whole natural any often 
  60.     Transfer (J/N) ? ";A$ 
  61. 450 IF LEFT$(A$,1) <> "J" THEN 490  transfer completed,finished 
  62. 460 ONERR GOTO 500                  Reactivate the Error-Routine (becomes 
  63. 470 HOME                            through File-End de-activated) 
  64. 480 GOTO 40                         And (once) again«more» from ahead 
  65. 490 End 
  66. 500 E=PEEK(222)                     Content the Error report 
  67. 510 POKE 216,0                      Error-Index backspace 
  68. 520 Print 
  69. 530 IF E=6 THEN 570                 came from Line 130, File not existing 
  70. 540 IF E=5 THEN 240                 came from Line 210, so EOF achieves 
  71. 550 Print "Error ";E               all other Error 
  72. 560 GOTO 490                        
  73. 570 Print "Give'S Not!"           Falser Filename gave 
  74. 580 ONERR GOTO 500                  Reactivate, s.o. 
  75. 590 GOTO 40                         and next Trial start 
  76.  
  77. Compilieren, z.B. with the TASC-Compiler brings one whole Quantum, ago 
  78. after all works that Disk-drive of the Apple then through, instead after every Sector 
  79. short to chop, aside... : 
  80.  
  81. **** The Command A=FRE(0) conditioned, that in the Variables-management on- 
  82. geraeumt is: The Stringvariable B$ from Line 210 is under Applesoft 
  83. namely not overwrite, but everytime new has been installed. That  
  84. drived to one ueberlauf, when B$ to often emerged, through which the over- 
  85. tragung totally durcheinandergeraet. 
  86. On the other hand last straight this Command Fre(0) right reach, so that 
  87. also near one compilierten Program (s.o.) that Disk-drive after every 
  88. Sector short anhaelt. 
  89. Comprises so the Textfile from only wenigen Sectors (z.B. 10), can 
  90. the Line 225 distant become; that dignity he who Einlesevorgang on the 
  91. Apple essential accelerate. 
  92. One should himself perhaps 2 Program on the Apple generate and then 
  93. compilieren, one with, and one without Line 225. 
  94.  
  95. Atari-seitig is either under GFA-BASIC that Program Apple.BAS 
  96. started, or equal that already compilierte Program Apple.PRG, 
  97. which natural all something expedited. 
  98.  
  99. The "procedure" is then how follows: 
  100. - On both Computer the Program start 
  101. - Atari-Program until to the Inquiry "V24-Opening ready for  
  102.   transfer?" run leave (including,inclusive the "O.K."-Clicking!). 
  103. - Apple Program until including,inclusive the File-Inquiry cross,pass,traverse  
  104.   leave 
  105. - After the Apple the Number the Bytes indicated has, holds he (in one 
  106.   Endless-loop, Line 320-350) on. 
  107.   On this Place dignity the two Bytes transfer, the the Length the 
  108.   to uebertragenden Bytes contain,enclose,hold. This Number is also on the 
  109.   Atari show, and it appears one Alert-Box, in the this Length 
  110.   confirmed,verified become should. 
  111. * If both Lengths not concur, is through Mouse-clicking on the 
  112.   "no"-Box that Program on the Atari stopped. On the Apple must 
  113.   then still ON "J" gave become, and also this Program is 
  114.   stopped. 
  115. * If both Lengths yet concur (this should the Default 
  116.   be!), next on the Atari the "yes"-Box mouse-clicking on, then on the 
  117.   Apple some Key-pad (aside "J"!!) press,push, z.B. the Space-Key-pad. 
  118. - Apple is then next ready. If none other Textfile transfer 
  119.   become should, <CR> press,push and switch off. 
  120. - Data file on the Atari how desire weiterbearbeiten, print  
  121.   and/or store. 
  122. - New transfer sinngemaess. 
  123.  
  124. (The Control the Number the to uebertragenden Bytes is in this respect sense- 
  125.  full, then,there,since on the V24-Opening (on the Apple-Map or also in the 
  126.  Atari-Buffer) still old Date placed can; the Atari anticipated,expected then 
  127.  one false Number from Bytes and "depends himself on", how one so beautiful 
  128.  say.) 
  129.  
  130. Much Fun with it, near me ran the transfer good! 
  131.  
  132. Rolf Henke, Blumenthalstr. 12, 2800 Bremen 1, d.25.01.1988 
  133. (That is the Address, on the the many Geldscheine manipulate become 
  134.  be expected to!!!) 
  135.  
  136.